Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/E-G/Financial Portfolio v1.8.cpt/Financial Portfolio v1.8/background_5133.xml

Extensible Markup Language | 1991-09-30 | 14KB | 363 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>5133</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5444.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3246.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>151</left>
            <top>41</top>
            <right>441</right>
            <bottom>60</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Stock</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>75</left>
            <top>74</top>
            <right>173</right>
            <bottom>246</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>intro</name>
        <script></script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>176</left>
            <top>73</top>
            <right>266</right>
            <bottom>100</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>date</name>
        <script></script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>176</left>
            <top>98</top>
            <right>266</right>
            <bottom>125</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>shares</name>
        <script>on closeFieldif field "price" is empty then exit closeFieldput field "shares" into sput field "price" into pif first char of p is "$" then put empty into first char of pset the numberformat to "0.00"put "$"&(s*p) into bg field "value"end closeField</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>176</left>
            <top>121</top>
            <right>266</right>
            <bottom>148</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>price</name>
        <script>on closeFieldif field "shares" is empty then exit closeFieldput field "shares" into sput field "price" into pput me into priceif first char of p is "$" then put empty into first char of pif first char of price is "$" then put empty into first char of priceset the numberformat to "0.000"add 0 to price -- to set numberformatput "$"&price into bg field "price" -- correct formatset the numberformat to "0.00"put "$"&(s*p) into bg field "value"end closeField</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>176</left>
            <top>194</top>
            <right>266</right>
            <bottom>221</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>value</name>
        <script></script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>176</left>
            <top>146</top>
            <right>266</right>
            <bottom>173</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>24</textHeight>
        <name>comm</name>
        <script>on closeFieldput me into commif first char of comm is "$" then put empty into first char of commset the numberformat to "0.00"add 0 to comm -- to set numberformatput "$"&comm into bg field "comm" -- correct formatend closeField</script>
    </part>
    <part>
        <id>8</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>330</left>
            <top>123</top>
            <right>437</right>
            <bottom>173</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Okay</name>
        <script>on mouseUpglobal transcheck,transcard,translinesend closeField to bg field "price" -- to ensure proper formatput empty into newnewset cursor to busyif field "type" is not "div" then -- with dividend, can leave blanksif field "type" is not "split" then -- with split, can leave blanksrepeat with x=3 to 7if field x is empty thenbeepanswer "You left something blank!"exit mouseUpend ifend repeatend ifend ifset cursor to busyput field type into typeput field date into dateput field shares into sharesput field price into priceput field comm into commput field value into valueif visible of bg button "erase" of cd "transaction" is false thenput "yes" into newnew -- buying a new stockend ifvisual barn door closeif transcheck is "y" then -- just checking/editinggo transcardput date into line transline of field "date"put type into line transline of field "type"put shares into line transline of field "shares"put price into line transline of field "price"put comm into line transline of field "comm"put value into line transline of field "value"put "n" into transcheckcountshares-- -- now, need to calculate new value-- put field "numshares" into n-- put field "currprice" into p-- set the numberformat to "0."-- put "$"&(p*n) into field "currval"lock screengo cd stockport -- to update new price after event-- don't lock messages, so it can update & calculatego transcardexit mouseUpend ifgo transcard -- to stock's cardput date into line (transline +1) of field "date"put type into line (transline +1) of field "type"put shares into line (transline +1) of field "shares"put price into line (transline +1) of field "price"put comm into line (transline +1) of field "comm"put value into line (transline +1) of field "value"-- now update max & minput strip("$",price) into ppif pp>line 1 of field "maxmin" then put pp into line 1 of field "maxmin"if pp<line 2 of field "maxmin" then put pp into line 2 of field "maxmin"put pp into field "currprice"if newnew is "yes" then -- brand new stockput strip("$",price) into line 1 of field "maxmin"put strip("$",price) into line 2 of field "maxmin"end ifcountshareslock screengo cd stockport -- to update new price after event-- don't lock messages, so it can update & calculatego transcardend mouseUp</script>
    </part>
    <part>
        <id>9</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>344</left>
            <top>85</top>
            <right>418</right>
            <bottom>104</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>cancel</name>
        <script>on mouseUpglobal transcardvisual barn door closego transcardend mouseUp</script>
    </part>
    <part>
        <id>10</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>91</left>
            <top>41</top>
            <right>139</right>
            <bottom>60</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>type</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>353</left>
            <top>205</top>
            <right>415</right>
            <bottom>222</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>erase</name>
        <script>on mouseUpanswer "This will totally erase this transaction from your records!" with "Erase" or "cancel"if it is empty then exit mouseUpif it is "cancel" then exit mouseUpglobal transcheck,transcard,translineif transcheck is "y" thengo transcarddelete line transline of field "date"delete line transline of field "type"delete line transline of field "shares"delete line transline of field "price"delete line transline of field "comm"delete line transline of field "value"put "n" into transcheckcountshares-- now, need to calculate new valueput field "numshares" into nput field "currprice" into pset the numberformat to "0."put "$"&(p*n) into field "currval"lock screengo cd stockport -- to recalculate thingsgo transcardanswer "Please double-check your share price below {click on it to change}."end ifend mouseUp</script>
    </part>
    <name>buy/sell</name>
    <script></script>
</background>